;:sys36864
	;.opt oo
	*= 24576
bank	=1
low	=$8000
open	=$ffc0
close	=$ffc3
setnam	=$ffbd
setpar	=$ffba
clrchn	=$ffcc
chkout	=$ffc9
tmp	=2
strout	=$ab1e
print	=$ffd2
ok	=57741
	lda #<trost
	ldy #>trost
	jsr strout
	ldx #<name
	ldy #>name
	lda #trost-name
	jsr setnam
	lda #2
	ldx #8
	tay
	jsr setpar
	jsr open
	ldx #2
	jsr chkout
	lda #<low
	sta tmp
	jsr print
	lda #>low
	sta tmp+1
	jsr print
	ldy #0
	ldx #55
weiter	lda #48
	sei
	sta bank
	lda (tmp),y
	stx bank
	cli
	jsr print
	inc tmp
	bne weiter
	inc tmp+1
	bne weiter
	jsr clrchn
	lda #2
	jsr close
	jmp ok
name	.byte "gesamtbild...,p,w"
trost	.byt 13
	.byte "speicherbereich $8000 - $ffff wird ge-"
	.byt 13
	.byte "speichert... bitte geduld..."
	.byt 13,0